home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Extra 1997 #1 / Amiga Plus Extra 1997 #1.iso / programme / daten / adm / arexx / adm-arexxmakros.lha / Netze / Spot / WriteSpotMail.adm
Text File  |  1995-12-26  |  3KB  |  75 lines
  1. /**************************************************************/
  2. /* WriteSpotMail.adm $Ver: V1.0 1.7.95 BY Clemens Resanka     */
  3. /*                                                            */
  4. /*  dieses Arexx-Script ermöglicht es aus ADM heraus jemandem */
  5. /*  mittels Spot eine Fido-Netmail oder (mittels Gate) eine   */
  6. /*  Email zu schreiben.                                       */
  7. /*                                                            */
  8. /*  Um mittels Gate eine Email schreiben zu können, muß dem   */
  9. /*  Arexx Script die Adresse des Gateways bekannt sein. Wenn  */
  10. /*  Sie das nützen wollen, müssen Sie die Gate-Adresse bei    */
  11. /*  in der Variablen Gate ändern (die momentan eingetragene   */
  12. /*  Fido-Adresse gilt afaik nur für Österreich!)              */
  13. /*                                                            */
  14. /*  In ADM muß eine Fido-Addresse dem Format                  */
  15. /*                FidoNet@2:310/72.26                         */
  16. /*  entsprechen, um von WriteSpotMail.adm als solche erkannt  */
  17. /*  zu werden! Emails werden OHNE irgendeinem Zusatz          */
  18. /*  eingetragen.                                              */
  19. /**************************************************************/
  20.  
  21. /* Hier die Adresse des Gateways eintragen!                   */
  22. GATE = '2:310/39.2'
  23.  
  24. q = '"'
  25.  
  26. OPTIONS RESULTS
  27. OPTIONS FAILAT 31
  28.  
  29. IF ~Show('LIBS',"rexxreqtools.library") THEN IF ~AddLib("rexxreqtools.library",0,-30,0) THEN DO
  30.     SAY "Konnte rexxreqtools.library nicht öffnen!"
  31.     EXIT
  32. END
  33.  
  34. GETADDRESS Stemmy
  35.  
  36. SELECT
  37.  
  38.     WHEN (Stemmy.Email1 = "") & (Stemmy.Email2 = "") THEN DO
  39.         rtezrequest('Dieser Eintrag enthält keine Email-Addresse!','Abbrechen','ADM Information')
  40.         EXIT
  41.     END
  42.  
  43.     WHEN (Stemmy.Email1 ~= "") & (Stemmy.Email2 ~= "") THEN DO
  44.         rtezrequest('Welche Email-Adresse soll verwendet werden?',Stemmy.Email1 || '|' || Stemmy.Email2,'ADM Anfrage')
  45.         IF rtresult = 1 THEN Email = Stemmy.Email1
  46.         ELSE Email = Stemmy.Email2
  47.     END
  48.  
  49.     WHEN (Stemmy.Email1 ~= "") THEN Email = Stemmy.Email1
  50.  
  51.     OTHERWISE Email = Stemmy.Email2
  52.  
  53. END
  54.  
  55. IF ~ Show('ports','SPOT') THEN DO
  56.     ADDRESS command 'assign PROGDIR: Mail:'
  57.     ADDRESS command 'run >NIL: Mail:Spot'
  58.     DO WHILE ~Show('ports','SPOT')
  59.     END
  60. END
  61.  
  62. ADDRESS spot
  63. 'uniconify'
  64. 'gotomatrixarea'
  65. 'messages'
  66.  
  67. Subject = rtgetstring(,,'Bitte geben Sie den Betreff ein!')
  68. IF rtresult = 0 THEN EXIT
  69.  
  70. IF Pos('FIDONET@',UPPER(Email)) > 0 THEN 'write TO' q||Stemmy.FIRSTNAME Stemmy.LASTNAME||q 'TOADDR' q||Right(Email,Length(Email)-8)||q 'SUBJECT' q||Subject||q 'NOGUI'
  71. ELSE 'write TO' q||Stemmy.FIRSTNAME Stemmy.LASTNAME||q 'TOADDR' q||GATE||q 'SUBJECT' q||Subject||q 'NOGUI EMAILADDR' Email
  72. IF RESULT = 10 THEN rtezrequest('Die Message konnte nicht geschrieben werden! Sorry','Abbrechen','ADM Information')
  73.  
  74.  
  75.